home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Better New Button.cpt / Better New Button / card_3037.txt < prev    next >
Text File  |  1989-02-26  |  955b  |  47 lines
  1. -- card: 3037 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2588
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=242 top=221 right=245 bottom=376
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Better New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   doMenu "New Button"
  23. end mouseUp
  24.  
  25. on doMenu whichItem
  26.   send "doMenu whichItem" to stack
  27.   if whichItem is not "New Button" then
  28.     exit doMenu
  29.   end if
  30.   -- doMenu whichItem
  31.   doMenu "Button Info..."
  32. end doMenu
  33.  
  34.  
  35. -- part 34 (button)
  36. -- low flags: 00
  37. -- high flags: 8003
  38. -- rect: left=206 top=140 right=162 bottom=306
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: New Button
  47.